<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.1</name>
<id>-1</id>
<cardCount>6</cardCount>
<cardID>5831</cardID>
<listID>4915</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>-- I have put these comments in here to try and guide you through-- the various scripts, just incase you feel like having a go-- at modifying this stack to suit your own needs or perhaps to-- work with another transceiver. You will soon discover that there-- is an awful lot of number massaging going on. I'm not too happy-- about this but you will have to ask Yaesu, it's the way the FT-747-- send it's data out.-- If you have no interest in changing this stack you may want to remove-- these comments as it will help reduce the overall size.-- This part is used to call the variables used throughout the stack-- and also calls and sets the comm port.-- SPortGlobals,-- This variable is used by the comm port XCMDs and XFCNs.-- StatusDataRec,-- This is the Status byte received from the FT-747. This is-- received as an ASCII character and then converted to a BINARY number-- using the NumToBinary XCMD (see your FT-747 operating for more-- information on each BIT's settings.-- ModeDataRec,-- Used for storing current Mode information received from TX/RX.-- NewFreqSend,-- Used to store and setup new frequency that will be sent to TX/RX-- PackSend,-- This is used to convert the incoming frequency data. This information-- is sent from the FT-747 in a "Packed Decimal," format. See the-- PackedDec (for outgoing frequency) and UnPackDec (for incoming-- frequency) commands for how this works.-- PackRec,-- Same as above.-- SerialBuffer,-- This is used to store the 345 byte update information sent from the-- TX/RX. Do not confuse this with the SPortBuffer which the serial-- port XCMDs use to send and receive chatacters from the serial port.on openStack-- Calls the variables.global SPortGlobals, StatusDataRec, ModeDataRec,¬NewFreqSend, PackSend, PackRec, SerialBuffer, LastUpdate,¬UpdateTime, TryNum, gHCuser, portmenu, checked, MemDataRec,¬CAT, memmenu, updatemenu, UpdateChecked, SecChecked-- Configures the serial port, in this case the MODEM port. If you-- want to use the PRINTER port just change the word "modemPort,"-- to "printerPort."configureSPort modemPort,baud4800,data8,stop20,parityOff,stripoff,¬stripControlsOffsetSPortBufferSize 1024Put "ON" into CATput "00000000" into StatusDataRec-- The following commands are used to setup the AutoUpdate function.-- The variable "DELAY," is used to set the amount of delay-- between each automatic update. It is counted in 1/60s of a second-- so the value 900 = 15 seconds. You can of course set this to your-- own needs. You can of course turn Auto Updating off at anytime-- by clicking the Auto Updating button in the main display.put 600 into UpdateTimeput the ticks into LastUpdate-- The line below is the one that you will need to comment if you-- want the stack to stop updatint it's self automatically upon-- opening.send "mouseUp" to card button ID 1menuhandler "hide","Edit",portmenumenuhandler "hide","Go",portmenumenuhandler "hide","Tools",portmenumenuhandler "hide","Font",portmenumenuhandler "hide","Style",portmenuput "Modem,Printer" into portmenuput "Modem" into checkedmenuhandler "add","Port",portmenumenuhandler "mark","Port","Modem",checkput "Load Set,Save Set" into memmenumenuhandler "add","Memory",memmenuput "ON,OFF,------,1 sec,2 sec,5 sec,10 sec,15 sec,20 sec,30 sec" into updatemenumenuhandler "add","Update",updatemenumenuhandler "mark","Update","OFF",checkmenuhandler "mark","Update","10 sec",checkput "OFF" into UpdateCheckedput "10 sec" into SecCheckedput char 26 to 208 of serialbuffer into MemDataRecend openStackon closeStack-- Most inportant that when closing this stack or any other using-- these serial port XCMDs that you close the serial port before-- leaving. This clears the SPortbuffer and hands the serial port-- back to the system software.menuhandler "delete","Port",portmenumenuhandler "delete","Memory",portmenumenuhandler "delete","Update",portmenumenuhandler "show","Edit",portmenumenuhandler "show","Go",portmenumenuhandler "show","Tools",portmenumenuhandler "show","Font",portmenumenuhandler "show","Style",portmenucloseSPortend closeStackon NewFreq-- This command is used to send a new frequency to-- the transceiver. It also will put the frequency into a format-- that the FT-747 can recognize and updates the frequency-- displayed in the stack.global StatusDataRec, NewFreqSend, PackSend, PackRecput NewfreqSend into tempdelete char 3 of tempset numberformat to "000"put char 1 of temp into PackSendPackedDecput PackRec into MHz1put char 2 to 3 of temp into PackSendPackeddecput PackRec into MHz2put char 4 to 5 of temp into PackSendPackedDecput PackRec into KHz1put char 6 to 7 of temp into PackSendPackedDecput PackRec into KHz2if KHz2 = "000" thensendSPortbytes "0"elsesendSPort numtochar (KHz2)end ifif KHz1 = "000" thensendSPortbytes "0"elsesendSPort numtochar (KHz1)end ifif MHz2 = "000" thensendSPortbytes "0"elsesendSPort numtochar (MHz2)end ifif MHz1 = "000" thensendSPortbytes "0"elsesendSPort numtochar (MHz1)end ifsendSPortbytes "10"put empty into card field "MHZ" of card "MAIN DISPLAY"get char 1 of tempif it = 0 thenput space into temp2put char 2 of temp after temp2put "." after temp2put char 3 to 5 of temp after temp2put "." after temp2put char 6 of temp after temp2put temp2 into card field "MHZ" of card "MAIN DISPLAY"elseput char 1 to 2 of temp into temp2put "." after temp2put char 3 to 5 of temp after temp2put "." after temp2put char 6 of temp after temp2put temp2 into card field "MHZ" of card "MAIN DISPLAY"end ifget char 7 of tempif it <= 1 thenput "00" into card field "HZ" of card "MAIN DISPLAY"elseif it <= 3 thenput "25" into card field "HZ" of card "MAIN DISPLAY"elseif it <= 6 thenput "50" into card field "HZ" of card "MAIN DISPLAY"elseif it <= 9 thenput "75" into card field "HZ" of card "MAIN DISPLAY"end ifend ifend ifend ifend NewFreqon PackedDec-- This command is used to convert your frequency input into the-- "Packed Decimal" format used by the FT-747.global PacKSend, PackRecif PackSend <= 9 then put PackSend into PackRecelseif PackSend <= 19 then put PackSend + 6 into PackRecelseif PackSend <= 29 then put PackSend + 12 into PackRecelseif PackSend <= 39 then put PackSend + 18 into PackRecelseif PackSend <= 49 then put PackSend + 24 into PackRecelseif PackSend <= 59 then put PackSend + 30 into PackRecelseif PackSend <= 69 then put PackSend + 36 into PackRecelseif PackSend <= 79 then put PackSend + 42 into PackRecelseif PackSend <= 89 then put PackSend + 48 into PackRecelseif PackSend <= 99 then put PackSend + 54 into PackRecend ifend ifend ifend ifend ifend ifend ifend ifend ifend PackedDecOn BandFastUp-- All the "BAND/FREQ," commands are used by the frequency-- "UP," and "DOWN," button on the front panel of the FT-747.-- The command called depends on wether the "FAST," and or "BAND,"-- buttons have been pressed.global NewFreqSendset numberformat to "00.00000"put NewFreqSend + 5 into tempget char 1 to 2 of tempif it >= 30 then put "05" into char 1 to 2 of tempput temp into NewFreqSendNewFreqend BandFastUpOn BandSlowUp-- All the "BAND/FREQ," commands are used by the frequency-- "UP," and "DOWN," button on the front panel of the FT-747.-- The command called depends on wether the "FAST," and or "BAND,"-- buttons have been pressed.global NewFreqSendset numberformat to "00.00000"put NewFreqSend + .5 into tempget char 1 to 2 of tempif it >= 30 then put "00.5" into char 1 to 4 of tempput temp into NewFreqSendNewFreqend BandSlowUpOn FreqUpglobal NewFreqSend, ModeDataRecset numberformat to "00.000000"if char 7 of ModeDataRec = "1" thenput NewFreqSend + ".001" into NewFreqSendelseif char 8 of ModeDataRec = "1" thenput NewFreqSend + ".005 "into NewFreqSendelseput NewFreqSend + ".0001" into NewFreqSendend ifend ifNewfreqend FreqUpOn FreqDownglobal NewFreqSend, ModeDataRecset numberformat to "00.000000"if char 7 of ModeDataRec = "1" thenput NewFreqSend - ".001" into NewFreqSendelseif char 8 of ModeDataRec = "1" thenput NewFreqSend - ".005 "into NewFreqSendelseput NewFreqSend - ".0001" into NewFreqSendend ifend ifNewfreqend FreqDownOn FreqSlowUp-- All the "BAND/FREQ," commands are used by the frequency-- "UP," and "DOWN," button on the front panel of the FT-747.-- The command called depends on wether the "FAST," and or "BAND,"-- buttons have been pressed.global NewFreqSend, ModeDataRecset numberformat to "00.000000"if char 7 of ModeDataRec = "1" thenput NewFreqSend + ".001" into NewFreqSendelseif char 8 of ModeDataRec = "1" thenput NewFreqSend + ".005 "into NewFreqSendelseput NewFreqSend + ".000025" into NewFreqSendend ifend ifNewfreqend FreqSlowUpOn FreqFastUp-- All the "BAND/FREQ," commands are used by the frequency-- "UP," and "DOWN," button on the front panel of the FT-747.-- The command called depends on wether the "FAST," and or "BAND,"-- buttons have been pressed.global NewFreqSend, ModeDataRecset numberformat to "00.00000"if char 7 of ModeDataRec = "1" thenput NewFreqSend + ".01" into NewFreqSendelseif char 8 of ModeDataRec = "1" thenput NewFreqSend + ".0125 "into NewFreqSendelseput NewFreqSend + .0025 into NewFreqSendend ifend ifNewFreqend FreqFastUpOn FreqSlowDown-- All the "BAND/FREQ," commands are used by the frequency-- "UP," and "DOWN," button on the front panel of the FT-747.-- The command called depends on wether the "FAST," and or "BAND,"-- buttons have been pressed.global NewFreqSend, ModeDataRecset numberformat to "00.000000"if char 7 of ModeDataRec = "1" thenput NewFreqSend - ".001" into NewFreqSendelseif char 8 of ModeDataRec = "1" thenput NewFreqSend - ".005 "into NewFreqSendelseput NewFreqSend - ".000025" into NewFreqSendend ifend ifNewfreqend FreqSlowDownOn FreqFastDown-- All the "BAND/FREQ," commands are used by the frequency-- "UP," and "DOWN," button on the front panel of the FT-747.-- The command called depends on wether the "FAST," and or "BAND,"-- buttons have been pressed.global NewFreqSend, ModeDataRecset numberformat to "00.00000"if char 7 of ModeDataRec = "1" thenput NewFreqSend - ".01" into NewFreqSendelseif char 8 of ModeDataRec = "1" thenput NewFreqSend - ".0125 "into NewFreqSendelseput NewFreqSend - .0025 into NewFreqSendend ifend ifNewFreqend FreqFastDownOn BandFastdown-- All the "BAND/FREQ," commands are used by the frequency-- "UP," and "DOWN," button on the front panel of the FT-747.-- The command called depends on wether the "FAST," and or "BAND,"-- buttons have been pressed.global NewFreqSendset numberformat to "00.00000"put NewFreqSend - 5 into tempget char 1 to 2 of tempif it = -0 then put "25" into char 1 to 2 of tempput temp into NewFreqSendNewFreqend BandFastDownOn BandSlowDown-- All the "BAND/FREQ," commands are used by the frequency-- "UP," and "DOWN," button on the front panel of the FT-747.-- The command called depends on wether the "FAST," and or "BAND,"-- buttons have been pressed.global NewFreqSendset numberformat to "00.00000"put NewFreqSend - .5 into tempget char 1 to 4 of tempif it = 00.0 then put "29.5" into char 1 to 4 of tempput temp into NewFreqSendNewFreqend BandSlowDownon UnPackDec-- This command is used to convert the frequency data received-- from the FT-747 into a decimal format used by the stack.global PackSend, PackRecif PackSend <= 9 then put PackSend into PackRecelseif PackSend <= 25 then put PackSend - 6 into PackRecelseif PackSend <= 41 then put PackSend - 12 into PackRecelseif PackSend <= 57 then put PackSend - 18 into PackRecelseif PackSend <= 73 then put PackSend - 24 into PackRecelseif PackSend <= 89 then put PackSend - 30 into PackRecelseif PackSend <= 105 then put PackSend - 36 into PackRecelseif PackSend <= 121 then put PackSend - 42 into PackRecelseif PackSend <= 137 then put PackSend - 48 into PackRecelseif PackSend <= 153 then put PackSend - 54 into PackRecelseif PackSend <= 169 then put PackSend - 66 into PackRecend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend UnPackDecon UpdateSettings-- This command is used to update the main display of the stack.global StatusDataRec, NewFreqSend,¬PackSend, PackRec, SerialBuffer, ModeDataRecset style of card button ID 46 of card "MAIN DISPLAY" to opaqueset style of card button ID 47 of card "MAIN DISPLAY" to opaqueset style of card button ID 48 of card "MAIN DISPLAY" to opaqueset style of card button ID 49 of card "MAIN DISPLAY" to opaqueset style of card button ID 50 of card "MAIN DISPLAY" to opaqueset style of card button ID 96 of card "MAIN DISPLAY" to opaqueset style of card button ID 105 of card "MAIN DISPLAY" to opaqueif char 1 of SerialBuffer = "¿" thenput "00000000" into StatusDataRecelseput NumToBinary (chartonum of char 1 of Serialbuffer)¬into StatusDataRecend ifset numberformat to "00"if char 3 of serialbuffer = "¿" thenput "00" into tempelseput chartonum of char 3 of SerialBuffer into PackSenddo UnPackDecput PacKRec into tempend ifif char 4 of serialbuffer = "¿" thenput "00" after tempelseput chartonum of char 4 of SerialBuffer into PackSenddo UnPackdecput PackRec after tempend ifif char 5 of serialbuffer = "¿" thenput "00" after tempelseput chartonum of char 5 of SerialBuffer into PackSenddo UnPackdecput PackRec after tempend ifput char 1 to 2 of temp into NewFreqSendput "." after NewFreqSendput char 3 to 6 of temp after NewfreqSendif char 6 of SerialBuffer = "¿" thenput "00" into PackRecput "00" into Hz1elseput chartonum of char 6 of SerialBuffer into PackSenddo UnPackdecend ifif PackRec <= "24" thenput "00" into HZ1put "0" after NewFreqSendelseif PackRec <= "49" thenput "25" into HZ1put "3" after NewFreqSendelseif PackRec <= "74" thenput "50" into Hz1put "6" after NewFreqSendelseif PackRec <= "99" thenput "75" into Hz1put "9" after NewFreqSendend ifend ifend ifend ifget char 1 of tempif it = 0 thenput " " into temp2put char 2 of temp after temp2put "." after temp2put char 3 to 5 of temp after temp2put "." after temp2put char 6 of temp after temp2put temp2 into card field "MHZ" of card "MAIN DISPLAY"elseput char 1 to 2 of temp into temp2put "." after temp2put char 3 to 5 of temp after temp2put "." after temp2put char 6 of temp after temp2put temp2 into card field "MHZ" of card "MAIN DISPLAY"end ifput Hz1 into card field "Hz" of card "MAIN DISPLAY"if char 3 of StatusDataRec = 1 thenset style of card button "BUSY DISPLAY COVER"¬of card "MAIN DISPLAY" to opaqueset style of card field "ON AIR LIGHT"¬of card "MAIN DISPLAY" to opaqueelseset style of card button "BUSY DISPLAY COVER"¬of card "MAIN DISPLAY" to transparentset style of card field "ON AIR LIGHT"¬of card "MAIN DISPLAY" to transparentend ifif char 4 of StatusDataRec = 1 thenset style of card button ID 65¬of card "MAIN DISPLAY" to opaqueset style of card button ID 89¬of card "MAIN DISPLAY" to opaqueset style of card button "Mem DISPLAY COVER"¬of card "MAIN DISPLAY" to transparentelseset style of card button "Mem DISPLAY COVER"¬of card "MAIN DISPLAY" to opaqueend ifif char 5 of StatusDataRec = 1 thenset style of card button ID 89 of card "MAIN DISPLAY"¬to transparentset style of card button "VFOA DISPLAY COVER"¬of card "MAIN DISPLAY" to opaqueelseset style of card button ID 89¬of card "MAIN DISPLAY" to opaqueset style of card button "VFOA DISPLAY COVER"¬of card "MAIN DISPLAY" to transparentend ifif char 6 of StatusDataRec = 1 thenset style of card button "Clar DISPLAY COVER"¬of card "MAIN DISPLAY" to transparentelseset style of card button "Clar DISPLAY COVER"¬of card "MAIN DISPLAY" to opaqueend ifif char 7 of StatusDataRec = 1 thenset style of card button "Split DISPLAY COVER"¬of card "MAIN DISPLAY" to transparentelseset style of card button "Split DISPLAY COVER"¬of card "MAIN DISPLAY" to opaqueend ifif char 8 of StatusDataRec = 1 thenset style of card button "Lock DISPLAY COVER"¬of card "MAIN DISPLAY" to transparentelseset style of card button "Lock DISPLAY COVER"¬of card "MAIN DISPLAY" to opaqueend ifput chartonum of char 24 of Serialbuffer into itif char 24 of SerialBuffer = "¿" thenput "00" into card field ID 34 of card "MAIN DISPLAY"elseput chartonum of char 24 of SerialBuffer into PackSendUnPackdecput PackRec into card field ID 34 of card "MAIN DISPLAY"end ifput "00000000" into ModeDataRecput NumToBinary (chartonum of char 25 of Serialbuffer)¬into ModeDataRecif char 1 of ModeDataRec = 1 thenset style of card button ID 96 of card "MAIN DISPLAY"¬to transparentend ifif char 4 of ModedataRec = 1 thenset style of card button ID 46 of card "MAIN DISPLAY"¬to transparentexit UpdateSettingsend ifif char 5 of ModedataRec = 1 thenset style of card button ID 47 of card "MAIN DISPLAY"¬to transparentexit UpdateSettingsend ifif char 6 of ModedataRec = 1 thenset style of card button ID 48 of card "MAIN DISPLAY"¬to transparentexit UpdateSettingsend ifif char 7 of ModedataRec = 1 thenset style of card button ID 49 of card "MAIN DISPLAY"¬to transparentexit UpdateSettingsend ifif char 8 of ModedataRec = 1 thenset style of card button ID 50 of card "MAIN DISPLAY"¬to transparentput "1" into char 1 of ModeDataRecset style of card button ID 96 of card "MAIN DISPLAY"¬to transparentend ifend UpdateSettingson domenu anItemglobal PortMenu, MemMenu, UpdateMenuif PortMenu contains anItem thendoPortMenu anItemelseif MemMenu contains anItem thendoMemMenu anItemelseif UpdateMenu contains anItem thendoUpdateMenu anItemelsepass domenuexit domenuend ifend ifend ifend domenuon DoPortMenu anItemglobal SPortGlobals, portmenu, checkedif anItem = Checked thenexit DoPortmenuelseif anItem = "Modem" thencloseSPortconfigureSPort ModemPort,baud4800,data8,stop20,parityOff,stripoff,¬stripControlsOffsetSPortBufferSize 1024menuhandler "mark","Port","Modem",checkmenuhandler "mark","Port","Printer",noneput "Modem" into Checkedget recvChars(charsAvailable())elsecloseSPortconfigureSPort PrinterPort,baud4800,data8,stop20,parityOff,stripoff,¬stripControlsOffsetSPortBufferSize 1024menuhandler "mark","Port","Printer",checkmenuhandler "mark","Port","Modem",noneput "Printer" into Checkedget recvChars(charsAvailable())end ifend ifend DoPortMenuOn DoUpdateMenu anItemglobal UpdateMenu, UpdateChecked, SecChecked, UpdateTime, MyLastif UpdateChecked = anItem thenexit DoUpdateMenuelseif SecChecked = anItem thenexit DoUpdateMenuelseif anItem = "ON" thenmenuhandler "mark","Update","ON",checkmenuhandler "mark","UpDate","OFF",noneput "ON" into UpdateCheckedset hilite of card button id 1 to trueelseif anItem = "OFF" thenmenuhandler "mark","Update","OFF",checkmenuhandler "mark","UpDate","ON",noneput "OFF" into UpdateCheckedset hilite of card button id 1 to falseelsemenuhandler "mark","Update",(SecChecked),noneif anItem = "1 sec" thenput 60 into updatetimemenuhandler "mark","Update","1 sec",checkput "1 sec" into SecCheckedelseif anItem = "2 sec" thenput 120 into updatetimemenuhandler "mark","Update","2 sec",checkput "2 sec" into SecCheckedelseif anItem = "5 sec" thenput 300 into updatetimemenuhandler "mark","Update","5 sec",checkput "5 sec" into SecCheckedelseif anItem = "10 sec" thenput 600 into updatetimemenuhandler "mark","Update","10 sec",checkput "10 sec" into SecCheckedelseif anItem = "15 sec" thenput 900 into updatetimemenuhandler "mark","Update","15 sec",checkput "15 sec" into SecCheckedelseif anItem = "20 sec" thenput 1200 into updatetimemenuhandler "mark","Update","20 sec",checkput "20 sec" into SecCheckedelseif anItem = "30 sec" thenput 1800 into updatetimemenuhandler "mark","Update","30 sec",checkput "30 sec" into SecCheckedend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifEnd DoUpdateMenuOn DoMemMenu anitemGlobal StatusDataRec, NewFreqSendif anitem = "Load Set" thenput FilePath("TEXT", "Where is you memory data file ?")¬into filenameif filename = empty thenexit DoMemMenuelseopen file fileNameread from file fileName for 32000if it is empty thenbeepbeepclose file fileNameexit DoMemMenuelse put empty into tempRecordput it after tempRecordput return into last char of tempRecordrepeat while offset(tab,tempRecord) is not 0get offset(tab,tempRecord)set cursor to busyput " " into char it of tempRecordend repeatput tempRecord into card field "Mr Display Num" of card¬"Main Display"close file fileNameend ifrepeat with x = 2 to 21set cursor to busysendSPortBytes "0,0,0,0,5"put line x of card field "Mr Display Num"¬of card "Main Display" into memdataput word 1 of memdata into memnumput word 2 of memdata into vfoaput word 3 of memdata into vfobput word 4 of memdata into splitif split = "*" thensendSPortBytes "0,0,0,1,5"wait 30 ticksset the numberFormat to "00.00000"put vfob into NewFreqSendadd "0" to NewFreqSenddo NewFreqsendSPortBytes "0,0,0,0,5"wait 30 ticksset the numberFormat to "00.00000"put vfoa into NewFreqSendadd "0" to NewFreqSenddo NewFreqwait 30 tickssendSPortBytes "0,0,0,1,1"elsesendSPortBytes "0,0,0,0,1"wait 30 ticksset the numberFormat to "00.00000"put vfoa into NewFreqSendadd "0" to NewFreqSenddo NewFreqend ifwait 30 ticksif memnum = "00" thensendSPortbytes "0,0,0,0,3"elsesendSPort "000" & numtochar of (memnum) & numtochar (3)end ifwait 30 ticksend repeatsend "mouseUp" to card button ID 1 of card "Main Display"set cursor to handelseif anitem = "Save Set" thenput empty into tempRecordput card field "MR Display Num" of card¬"Main Display" into tempRecordput return into last char of tempRecordrepeat while offset(" ",tempRecord) is not 0get offset(" ",tempRecord)set cursor to busyput tab into char it of tempRecorddelete char it + 1 to it + 7 of tempRecordend repeatWriteToFile tempRecord,FALSE,"FT747 Memory Data",FALSE,"EDIT"end ifend ifend DoMemMenu</script>
